association<-function(dados, a)
{
class<-cut(a, breaks=c(), labels=c(...)) # class  um objeto, pode ter qualquer nome
}
{
Dados2<-data.frame(dados, classes=c(class)) # criar nova tabela com a coluna de classes
Dados2$classes[dados1$class=="1"]<- "x1-x2 # nomear as classes
			#fazer para cada categoria para visualizar no grfico
tabela<-table(hospedeiro2$classes,hospedeiro2$sexo) #tabular os dados
						# tabela = objeto
}
{
require(lattice) # pacote para fazer o dotplot
dotplot(tamanho.hospedeiro~a|class, layout=c(...),groups=(),data=dados2, 
auto.key=TRUE, xlab=" ", ylab=") #grafico que correlaciona todas as classes 
                               # de tamanho do hospedeiro
                               # por tamanho dos inquilinos e por sexo 
}
{
results<-list(tabela, dotplot)
return(results)
}
